home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / shareware / utilities / catedit1.1 / install < prev    next >
Text File  |  1994-11-17  |  3KB  |  149 lines
  1. ; Installer installation script for CatEdit
  2. ;$VER:Install RexxReqTools 38.3 (14.11.93)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set catedit "CatEdit")
  7. (set catalogdir "Catalogs/")
  8. (set reqtoolslib "libs/reqtools.library")
  9.  
  10. ;================================================================================
  11. ; English strings
  12.  
  13. (set #bad-kick
  14.     (cat "You must have Kickstart 2.04 or higher installed to use CatEdit!")
  15. )
  16.  
  17. (set #welcome
  18.     (cat "\nCatEdit installation\n\n\n"
  19.              "This script installs CatEdit 1.1\n"
  20.              "on your Amiga.\n\n\n\n"
  21.              "CatEdit © 1993 Rafael D'Halleweyn\n"
  22.              "All rights reserved\n\n"
  23.              "(reqtools.library © Nico François)")
  24. )
  25.  
  26. (set #where-catedit
  27.     (cat "In wich drawer should CatEdit be installed?")
  28. )
  29.  
  30. (set #which-language
  31.     (cat "\nWhich languages should be installed?")
  32. )
  33. (set #which-language-help
  34.     (cat "\nThe Amiga can be operated in many different languages. "
  35.          "If you want CatEdit to use the same language as the Amiga "
  36.          "Workbench a catalog file must be copied to your harddisk "
  37.          " for each language supported.\n\n"
  38.          "To reduce the amount of space consumed by the language "
  39.          "files, you can select to have only the files of specific "
  40.          "languages copied.\n\n"
  41.          "Simply check the boxes of the languages you wich to have "
  42.          "available on your system.\n\n")
  43. )
  44.  
  45. (set #copying-reqtools
  46.     (cat "Copying reqtools.library to LIBS:...")
  47. )
  48. (set #copying-reqtools-help
  49.     (cat "CatEdit requires the reqtools.library in your LIBS: drawer\n\n")
  50. )
  51.  
  52. ;================================================================================
  53. ; make sure we are running under a 2.04 ROM
  54.  
  55. (if (< (/ (getversion) 65536) 37)
  56.     (
  57.         (abort #bad-kick)
  58.     )
  59. )
  60.  
  61. ;================================================================================
  62. ;
  63.  
  64. (complete 0)
  65.  
  66. (message #welcome)
  67.  
  68. (welcome)
  69. (set old_level @user-level)
  70.  
  71. (user 2)
  72. (set cateditdir
  73.     (askdir
  74.         (prompt #where-catedit)
  75.         (help @askdir-help)
  76.         (default "SYS:Tools")
  77.     )
  78. )
  79.  
  80. (user old_level)
  81. (copyfiles
  82.     (prompt cateditdir)
  83.     (source catedit)
  84.     (dest cateditdir)
  85.     (infos)
  86.     (noposition)
  87. )
  88.  
  89. (complete 70)
  90.  
  91. (if (exists "SYS:Locale")
  92.     (
  93.         (if (exists "LOCALE:")
  94.             (
  95.                 (user 2)
  96.                 (set lang
  97.                     (askoptions
  98.                         (prompt #which-language)
  99.                         (help #which-language-help @askoptions-help)
  100.                         (choices
  101.                             "Dansk"
  102.                             "Deutsch"
  103.                             "English"
  104.                             "Nederlands"
  105.                             "Svenska")
  106.                         (default default_lang)
  107.                     )
  108.                 )
  109.                 (user old_level)
  110.                 (set n 0)
  111.                 (while (set language
  112.                         (select n
  113.                             "dansk"
  114.                             "deutsch"
  115.                             "english"
  116.                             "nederlands"
  117.                             "svenska"
  118.                             "")
  119.                         )
  120.                     (
  121.                         (if (IN lang n)
  122.                             (
  123.                                 (if (<> "english" language)
  124.                                     (
  125.                                         (makedir (cat "LOCALE:Catalogs/" language))
  126.                                         (copyfiles
  127.                                             (source (cat (cat catalogdir language) "/catedit.catalog"))
  128.                                             (dest (cat "LOCALE:Catalogs/" language)))
  129.                                     ))
  130.                             ))
  131.                         (set n (+ n 1))
  132.                     ))
  133.             ))
  134.     ))
  135.  
  136. (complete 90)
  137.  
  138. (user old_level)
  139. (copylib
  140.   (prompt "\n" #copying-reqtools)
  141.   (help #copying-reqtools-help @copylib-help)
  142.   (source reqtoolslib)
  143.   (dest "LIBS:")
  144.   (confirm)
  145. )
  146.  
  147. (complete 100)
  148. (exit)
  149.